home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sim.arc / VIDEODEM.SRC < prev   
Encoding:
Text File  |  1987-04-07  |  4.5 KB  |  271 lines
  1. ' Video Demonstration Menu  Version 1.00
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)
  6.  
  7. normal
  8. foreground(white+)
  9. background(red)
  10. setdate
  11. settime
  12.  
  13. date(2,9)
  14. time(65,9)
  15.  
  16. normal
  17. foreground(green)
  18. setattr
  19.  
  20. box(0,0)-(79,24),"║"
  21. fill(1,0),"═",78
  22. fill(1,24),"═",78
  23. fill(1,8),"─",78
  24. fill(1,10),"─",78
  25. .(0,0)"╔"
  26. .(0,24)"╚"
  27. .(79,0)"╗"
  28. .(79,24)"╝"
  29. .(0,8)"╟"
  30. .(79,8)"╢"
  31. .(0,10)"╟"
  32. .(79,10)"╢"
  33.  
  34. foreground(white+)
  35. background(blue)
  36. setattr
  37. .(29,9)" Video Demo Version 1.00 "
  38.  
  39. normal
  40. foreground(yellow)
  41. setattr
  42. .(9,2)"█▒   █▒  █▒  ███▒     ████▒   ██████▒  ███▒     ████▒   ███████▒"
  43. .(9,3)"█▒  █▒  █▒  █▒ █▒    █▒      █▒   █▒  █▒ █▒    █▒      █▒ █▒ █▒"
  44. .(9,4)"█▒ █▒  █▒  █▒  █▒   ████▒   █▒   █▒  █▒  █▒   ████▒   █▒ █▒ █▒"
  45. .(9,5)"█▒█▒  █▒  █▒   █▒  █▒      █▒   █▒  █▒   █▒  █▒      █▒ █▒ █▒"
  46. .(9,6)"██▒  █▒  ██████▒  ██████▒ ██████▒  ██████▒  ██████▒ █▒ █▒ █▒"
  47.  
  48. option start
  49. option(F1,15,13)" F1 - Box Demo ","NULL"
  50. option(F3,15,14)" F3 - Text Demo ","NULL"
  51. option(F5,15,15)" F5 - Border Demo ","NULL"
  52. option(F2,40,13)" F2 - Field Demo ","NULL"
  53. option(F4,40,14)" F4 - Fill Demo ","NULL"
  54. option(F6,40,15)" F6 - Return to DEMO Menu","MENU DEMO"
  55. option end
  56.  
  57. border(grey)
  58.  
  59. proc(F1,exec)
  60. invisible
  61. setdate
  62. settime
  63. normal
  64. setattr
  65. field(0,0)-(79,24)
  66. .(10,0)">>> BOX DEMONSTRATION - Press Any Key to Advance Forward <<<"
  67. wait(any)
  68. foreground(green)
  69. setattr
  70. box(0,0)-(79,24),"█"
  71. wait(any)
  72.  
  73. foreground(blue)
  74. setattr
  75. box(1,1)-(78,23),"█"
  76. wait(any)
  77.  
  78. foreground(green)
  79. setattr
  80. box(2,2)-(77,22),"▓"
  81. wait(any)
  82.  
  83. foreground(cyan)
  84. setattr
  85. box(3,3)-(76,21),"▓"
  86. wait(any)
  87.  
  88. foreground(red)
  89. setattr
  90. box(4,4)-(75,20),"▒"
  91. wait(any)
  92.  
  93. foreground(magenta)
  94. setattr
  95. box(5,5)-(74,19),"▒"
  96. wait(any)
  97.  
  98. foreground(brown)
  99. setattr
  100. box(6,6)-(73,18),"░"
  101. wait(any)
  102.  
  103. foreground(white)
  104. setattr
  105. box(7,7)-(72,17),"░"
  106. wait(any)
  107.  
  108. foreground(grey)
  109. blink on
  110. setattr
  111. box(8,8)-(71,16),"█"
  112. wait(any)
  113.  
  114. normal
  115. setattr
  116. .(13,12)"*** BOX Demo Complete - Press any key to continue ***"
  117. wait(any)
  118. proc end
  119.  
  120. proc(F3,exec)
  121. invisible
  122. setdate
  123. settime
  124. normal
  125. setattr
  126. field(0,0)-(79,24)
  127. .(10,0)">>> TEXT DEMONSTRATION - Press Any Key to Advance Forward <<<"
  128. wait(any)
  129. .(10,10)"This is an example of inline "
  130. underline bright
  131. setattr
  132. ."COLOUR"
  133. normal
  134. setattr
  135. ." changes on the same line."
  136. wait(any)
  137. blink on
  138. setattr
  139. .(20,15)"Blinking text can be specified also."
  140. wait(any)
  141. normal
  142. setattr
  143. .(10,0)"*** TEXT Demo Complete - Press any key to continue ***       "
  144. wait(any)
  145. proc end
  146.  
  147. proc(F5,exec)
  148. invisible
  149. setdate
  150. settime
  151. normal
  152. setattr
  153. field(0,0)-(79,24)
  154. .(10,0)">>> BORDER DEMONSTRATION - Press Any Key to Advance Forward <<<"
  155. wait(any)
  156. .(30,11)"BLACK      Border"
  157. border(black)
  158. wait(any)
  159. .(30,11)"BLUE "
  160. border(blue)
  161. wait(any)
  162. .(30,11)"GREEN"
  163. border(green)
  164. wait(any)
  165. .(30,11)"CYAN "
  166. border(cyan)
  167. wait(any)
  168. .(30,11)"RED "
  169. border(red)
  170. wait(any)
  171. .(30,11)"MAGENTA"
  172. border(magenta)
  173. wait(any)
  174. .(30,11)"BROWN  "
  175. border(brown)
  176. wait(any)
  177. .(30,11)"WHITE "
  178. border(white)
  179. wait(any)
  180. .(30,11)"GREY "
  181. border(grey)
  182. wait(any)
  183. .(30,11)"BLUE+"
  184. border(blue+)
  185. wait(any)
  186. .(30,11)"GREEN+"
  187. border(green+)
  188. wait(any)
  189. .(30,11)"CYAN+ "
  190. border(cyan+)
  191. wait(any)
  192. .(30,11)"RED+ "
  193. border(red+)
  194. wait(any)
  195. .(30,11)"MAGENTA+"
  196. border(magenta+)
  197. wait(any)
  198. .(30,11)"YELLOW  "
  199. border(yellow)
  200. wait(any)
  201. .(30,11)"WHITE+"
  202. border(white+)
  203. wait(any)
  204. normal
  205. setattr
  206. .(30,11)"                   "
  207. border(grey)
  208. .(10,0)"*** BORDER Demo Complete - Press any key to continue ***       "
  209. wait(any)
  210. proc end
  211.  
  212. proc(F2,exec)
  213. invisible
  214. setdate
  215. settime
  216. normal
  217. setattr
  218. field(0,0)-(79,24)
  219. .(10,0)">>> FIELD DEMONSTRATION - Press Any Key to Advance Forward <<<"
  220. wait(any)
  221. normal
  222. background(red)
  223. setattr
  224. field(2,2)-(77,23)
  225. wait(any)
  226. inverse
  227. setattr
  228. field(10,10)-(35,20)
  229. wait(any)
  230. normal
  231. underline bright
  232. background(blue)
  233. setattr
  234. field(20,15)-(70,22)
  235. wait(any)
  236. normal
  237. background(green)
  238. setattr
  239. field(30,12)-(50,17)
  240. wait(any)
  241. normal
  242. setattr
  243. .(10,0)"*** FIELD Demo Complete - Press any key to continue ***       "
  244. wait(any)
  245. proc end
  246.  
  247. proc(F4,exec)
  248. invisible
  249. setdate
  250. settime
  251. normal
  252. setattr
  253. field(0,0)-(79,24)
  254. .(10,0)">>> FILL DEMONSTRATION - Press Any Key to Advance Forward <<<"
  255. wait(any)
  256. fill(0,2),"*",240
  257. wait(any)
  258. fill(10,10),"═",15
  259. wait(any)
  260. background(magenta)
  261. setattr
  262. fill(0,20),"█",80
  263. wait(any)
  264. normal
  265. setattr
  266. .(10,0)"*** FILL Demo Complete - Press any key to continue ***       "
  267. wait(any)
  268. proc end
  269.  
  270. end
  271.